Crimes_2001_to_present <- read_csv("Crimes_-_2001_to_present.csv",
col_types = cols(Latitude = col_character(),
Location = col_character(), Longitude = col_character(),
`X Coordinate` = col_character(),
`Y Coordinate` = col_character()))
Crimes_2001_to_present
Crimes <- Crimes_2001_to_present
Crimes08 <- Crimes %>% filter(Year=="2008")
Crimes08
Crimes08Type <- Crimes08 %>% group_by(`Primary Type`, `Location Description`) %>% summarise(count = n()) %>% rename(PriType=`Primary Type`, LocDes = `Location Description`)
Crimes08Type
Graph08 <- ggplot(data=Crimes08Type,aes(x=reorder(PriType,count),y=count ,fill=LocDes))+geom_bar(stat='identity',position='stack', width=.9)+theme(axis.text.x = element_text(angle = 45, hjust = 1))+scale_color_grey()
ggplotly(Graph08, height=1000, width=3000)
EachYear <- Crimes %>% filter(Year!=2020) %>% group_by(Year,`Primary Type`) %>% summarise(count=n()) %>% arrange(`Primary Type`) %>% rename(PriType=`Primary Type`)
EachYear
EachYearGraph <- ggplot(data=EachYear,aes(x=Year,y=count,fill=PriType))+geom_bar(stat='identity',position='stack', width=.9)+theme(axis.text.x = element_text(angle = 45, hjust = 1))+scale_color_grey()
ggplotly(EachYearGraph, height=1000, width=1500)
options(noaakey = "dZHCRTVsEdwFQEzgovApkrhRWtwHWjjJ")
ncdc(datasetid = 'GHCNDMS', stationid = 'GHCND:USW00014819', startdate = '2010-01-01',
enddate = '2019-12-31')
$meta
$meta$totalCount
[1] 1200
$meta$pageCount
[1] 25
$meta$offset
[1] 1
$data
attr(,"class")
[1] "ncdc_data"
dat <- ghcnd(stationid = "USW00014819")
using cached file: C:\Users\Yuqi Gao\AppData\Local\Cache/R/noaa_ghcnd/USW00014819.dly
date created (size, mb): 2020-04-24 05:49:20 (1.592)
dattemp <- dat %>%
filter(element == "TMAX", year >= 2000)%>% select(VALUE1,year,month)%>%group_by(VALUE1=VALUE1/10)%>%group_by(AvgTemp=VALUE1)%>%select(year, month, AvgTemp)
dattemp
Crimes08 <- Crimes08 %>% mutate(Date = lubridate:: dmy_hms(Date))%>%arrange(Date)
257218 failed to parse.
Crimes08
Crimes08 <- Crimes08 %>% group_by(`Primary Type`,month=floor_date(Date, "month")) %>% summarise(count = n()) %>% rename(PriType=`Primary Type`)
Crimes08
Crimes08Theft <- Crimes08 %>% filter(PriType=="THEFT")
Crimes08Theft
dattemp %>% mutate(Date = lubridate:: m(month))
Error: 'm' is not an exported object from 'namespace:lubridate'
LS0tDQp0aXRsZTogIkZpbGUiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7ciBpbmNsdWRlPUZBTFNFfQ0KbGlicmFyeShEYXRhQ29tcHV0aW5nKQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KHJlYWRyKQ0KbGlicmFyeShtb3NhaWMpDQpsaWJyYXJ5KGx1YnJpZGF0ZSkNCmxpYnJhcnkocGxvdGx5KQ0KYGBgDQoNCg0KYGBge3J9DQpDcmltZXNfMjAwMV90b19wcmVzZW50IDwtIHJlYWRfY3N2KCJDcmltZXNfLV8yMDAxX3RvX3ByZXNlbnQuY3N2IiwgDQogICAgIGNvbF90eXBlcyA9IGNvbHMoTGF0aXR1ZGUgPSBjb2xfY2hhcmFjdGVyKCksIA0KICAgICAgICBMb2NhdGlvbiA9IGNvbF9jaGFyYWN0ZXIoKSwgTG9uZ2l0dWRlID0gY29sX2NoYXJhY3RlcigpLCANCiAgICAgICAgYFggQ29vcmRpbmF0ZWAgPSBjb2xfY2hhcmFjdGVyKCksIA0KICAgICAgICBgWSBDb29yZGluYXRlYCA9IGNvbF9jaGFyYWN0ZXIoKSkpDQpgYGANCg0KDQpgYGB7cn0NCkNyaW1lc18yMDAxX3RvX3ByZXNlbnQNCmBgYA0KDQpgYGB7cn0NCkNyaW1lcyA8LSBDcmltZXNfMjAwMV90b19wcmVzZW50DQpDcmltZXMwOCA8LSBDcmltZXMgJT4lIGZpbHRlcihZZWFyPT0iMjAwOCIpDQpDcmltZXMwOA0KYGBgDQoNCmBgYHtyfQ0KQ3JpbWVzMDhUeXBlIDwtIENyaW1lczA4ICU+JSBncm91cF9ieShgUHJpbWFyeSBUeXBlYCwgYExvY2F0aW9uIERlc2NyaXB0aW9uYCkgJT4lIHN1bW1hcmlzZShjb3VudCA9IG4oKSkgJT4lIHJlbmFtZShQcmlUeXBlPWBQcmltYXJ5IFR5cGVgLCBMb2NEZXMgPSBgTG9jYXRpb24gRGVzY3JpcHRpb25gKQ0KQ3JpbWVzMDhUeXBlDQpgYGANCg0KYGBge3J9DQpHcmFwaDA4IDwtIGdncGxvdChkYXRhPUNyaW1lczA4VHlwZSxhZXMoeD1yZW9yZGVyKFByaVR5cGUsY291bnQpLHk9Y291bnQgLGZpbGw9TG9jRGVzKSkrZ2VvbV9iYXIoc3RhdD0naWRlbnRpdHknLHBvc2l0aW9uPSdzdGFjaycsIHdpZHRoPS45KSt0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDQ1LCBoanVzdCA9IDEpKStzY2FsZV9jb2xvcl9ncmV5KCkNCmdncGxvdGx5KEdyYXBoMDgsIGhlaWdodD0xMDAwLCB3aWR0aD0zMDAwKQ0KYGBgDQoNCmBgYHtyfQ0KRWFjaFllYXIgPC0gQ3JpbWVzICU+JSBmaWx0ZXIoWWVhciE9MjAyMCkgJT4lIGdyb3VwX2J5KFllYXIsYFByaW1hcnkgVHlwZWApICU+JSBzdW1tYXJpc2UoY291bnQ9bigpKSAlPiUgYXJyYW5nZShgUHJpbWFyeSBUeXBlYCkgJT4lIHJlbmFtZShQcmlUeXBlPWBQcmltYXJ5IFR5cGVgKQ0KRWFjaFllYXINCmBgYA0KDQpgYGB7cn0NCkVhY2hZZWFyR3JhcGggPC0gZ2dwbG90KGRhdGE9RWFjaFllYXIsYWVzKHg9WWVhcix5PWNvdW50LGZpbGw9UHJpVHlwZSkpK2dlb21fYmFyKHN0YXQ9J2lkZW50aXR5Jyxwb3NpdGlvbj0nc3RhY2snLCB3aWR0aD0uOSkrdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA0NSwgaGp1c3QgPSAxKSkrc2NhbGVfY29sb3JfZ3JleSgpDQpnZ3Bsb3RseShFYWNoWWVhckdyYXBoLCBoZWlnaHQ9MTAwMCwgd2lkdGg9MTUwMCkNCmBgYA0KDQpgYGB7ciBpbmNsdWRlPUZBTFNFfQ0KZGV2dG9vbHM6Omluc3RhbGxfZ2l0aHViKCJyb3BlbnNjaS9ybm9hYSIpDQpgYGANCg0KYGBge3IgaW5jbHVkZT1GQUxTRX0NCmxpYnJhcnkoInJub2FhIikNCmBgYA0KYGBge3J9DQpvcHRpb25zKG5vYWFrZXkgPSAiZFpIQ1JUVnNFZHdGUUV6Z292QXBrcmhSV3R3SFdqakoiKQ0KbmNkYyhkYXRhc2V0aWQgPSAnR0hDTkRNUycsIHN0YXRpb25pZCA9ICdHSENORDpVU1cwMDAxNDgxOScsIHN0YXJ0ZGF0ZSA9ICcyMDEwLTAxLTAxJywNCiAgIGVuZGRhdGUgPSAnMjAxOS0xMi0zMScpDQpgYGANCg0KYGBge3J9DQpkYXQgPC0gZ2hjbmQoc3RhdGlvbmlkID0gIlVTVzAwMDE0ODE5IikNCmRhdHRlbXAgPC0gZGF0ICU+JQ0KICBmaWx0ZXIoZWxlbWVudCA9PSAiVE1BWCIsIHllYXIgPj0gMjAwMCklPiUgc2VsZWN0KFZBTFVFMSx5ZWFyLG1vbnRoKSU+JWdyb3VwX2J5KFZBTFVFMT1WQUxVRTEvMTApJT4lZ3JvdXBfYnkoQXZnVGVtcD1WQUxVRTEpJT4lc2VsZWN0KHllYXIsIG1vbnRoLCBBdmdUZW1wKQ0KZGF0dGVtcA0KYGBgDQpgYGB7cn0NCkNyaW1lczA4IDwtIENyaW1lczA4ICU+JSBtdXRhdGUoRGF0ZSA9IGx1YnJpZGF0ZTo6IGRteV9obXMoRGF0ZSkpJT4lYXJyYW5nZShEYXRlKQ0KQ3JpbWVzMDgNCmBgYA0KDQpgYGB7cn0NCkNyaW1lczA4IDwtIENyaW1lczA4ICU+JSBncm91cF9ieShgUHJpbWFyeSBUeXBlYCxtb250aD1mbG9vcl9kYXRlKERhdGUsICJtb250aCIpKSAlPiUgc3VtbWFyaXNlKGNvdW50ID0gbigpKSAlPiUgcmVuYW1lKFByaVR5cGU9YFByaW1hcnkgVHlwZWApDQpDcmltZXMwOA0KYGBgDQpgYGB7cn0NCkNyaW1lczA4VGhlZnQgPC0gQ3JpbWVzMDggJT4lIGZpbHRlcihQcmlUeXBlPT0iVEhFRlQiKQ0KQ3JpbWVzMDhUaGVmdA0KYGBgDQoNCg0KYGBge3J9DQpnZ3Bsb3QoUmlkZURpc3RhbmNlcywgYWVzKHg9ZGlzdGFuY2UsY29sb3I9InJlZCIpKSArIGdlb21fZGVuc2l0eShhZGp1c3QgPSAwLjgsIGFscGhhPSAwLjMpDQpgYGANCg0KDQoNCg==